extern int xerprt_(char *messg, integer *nmessg, ftnlen messg_len);
/*:ref: xgetua_ 14 2 4 4 */
/*:ref: i1mach_ 4 1 4 */
